home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Abacus diskdrives IO.adf / CH4 / Program2.bas < prev    next >
BASIC Source File  |  1978-06-28  |  471b  |  25 lines
  1. FileName$="example2"
  2. OPEN "R",#1,FileName$,40
  3. FIELD #1,10 AS Number$,20 AS Description$,10 AS Price$
  4. DataEntry:
  5. INPUT "Stock-Number";nr
  6. INPUT "Name";na$
  7. INPUT "Price ($)";dollars
  8. LSET Number$=MKS$(nr)
  9. LSET Description$=na$
  10. LSET Price$=MKS$(dollars)
  11. PUT #1,nr
  12. INPUT "more";more$
  13. IF more$="y" THEN DataEntry
  14.  
  15. DataReader:
  16. INPUT "Stock-Number";nr
  17. GET #1,nr
  18. PRINT "Name",Description$
  19. PRINT "Price ($)",CVS(Price$)
  20. INPUT "more";more$
  21. IF more$="y" THEN DataReader
  22. CLOSE #1
  23. END
  24.  
  25.